home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / WHDload_Paket / WHDload_Demos / Sanity_TerminalFuckup.lha / TerminalFuckupHD / Install-TerminalFuckup next >
Text File  |  2001-05-26  |  2KB  |  125 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "")        ;sub directory containing data files
  4. (set #readme-file "README")    ;name of readme file
  5. (set #cleanup "")        ;files to delete after install
  6.  
  7. ;****************************
  8. ;----------------------------
  9. ; checks if given program is installed, if not abort install
  10. ; #program - to check
  11.  
  12. (procedure P_ChkRun
  13.   (if
  14.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  15.     ("")
  16.     (abort
  17.       (cat
  18.     "You must install \"" #program "\" first!\n"
  19.     "It must be accessible via the path.\n"
  20.     "You can find it in the WHDLoad package."
  21.       )
  22.     )
  23.   )
  24. )
  25.  
  26. ;----------------------------
  27. ; Wait for inserting disk
  28. ; IN:  #AD_disk - name of disk
  29. ; OUT: -
  30.  
  31. (procedure P_disk
  32.   (askdisk
  33.     (dest #AD_disk)
  34.     (prompt ("\nInsert Disk \"%s\" in any drive!" #AD_disk))
  35.     (help @askdisk-help)
  36.   )
  37. )
  38.  
  39. ;****************************
  40.  
  41. (if
  42.   (exists #readme-file)
  43.   (if
  44.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  45.     ("")
  46.     (run ("SYS:Utilities/More %s" #readme-file))
  47.   )
  48. )
  49.  
  50. (set #program "WHDLoad")
  51. (P_ChkRun)
  52.  
  53. (set @default-dest
  54.   (askdir
  55.     (prompt ("Where is \"Sanity_TerminalFuckup\" located?"))
  56.     (help @askdir-help)
  57.     (default @default-dest)
  58.     (disk)
  59.   ) 
  60. )
  61.  
  62. (set #dest (tackon @default-dest @default-dest))
  63.  
  64. ;----------------------------
  65.  
  66. (copyfiles
  67.   (help @copyfiles-help)
  68.   (source ("%s.Slave" @app-name))
  69.   (dest #dest)
  70. )
  71. (if
  72.   (exists ("%s.coloricon1" @app-name))
  73.   (set #icon
  74.     (askchoice
  75.       (prompt "\nWhich icon would you like to install?\n")
  76.       (default 0)
  77.       (choices "Color Icon 1" "Color Icon 2")
  78.       (help @askchoice-help)
  79.     )
  80.   )
  81.   (set #icon 0)
  82. )
  83. (select #icon
  84.   (set #icon ("%s.coloricon1" @app-name))
  85.   (set #icon ("%s.coloriocn2" @app-name))
  86. )
  87. (copyfiles
  88.   (help @copyfiles-help)
  89.   (source #icon)
  90.   (newname ("%s.info" @app-name))
  91.   (dest #dest)
  92. )
  93. (if
  94.   (exists #readme-file)
  95.   (copyfiles
  96.     (help @copyfiles-help)
  97.     (source #readme-file)
  98.     (dest #dest)
  99.   )
  100. )
  101. (if
  102.   (exists ("%s.info" #readme-file))
  103.   (copyfiles
  104.     (help @copyfiles-help)
  105.     (source ("%s.info" #readme-file))
  106.     (dest #dest)
  107.   )
  108. )
  109. (if
  110.   (= #sub-dir "")
  111.   ("")
  112.   (
  113.     (set #dest (tackon #dest #sub-dir))
  114.     (makedir #dest
  115.       (help @makedir-help)
  116.     )
  117.   )
  118. )
  119.  
  120. ;----------------------------
  121.  
  122. (run ("Delete %s ALL QUIET FORCE" #cleanup))
  123.  
  124. (exit)
  125.